home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / spitfire / ecnspc.zip / ECNS.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-31  |  1KB  |  56 lines

  1. {Error Correction Notification System v1.3}
  2. {(C) 1995 Brian Leiter}
  3. {12-28-95}
  4.  
  5. Program Error_Correction_Notification_System;
  6. {$M $8192,1024,1024}
  7.  
  8. Uses DOS,RMDOOR;
  9.  
  10. Var F          : Text;
  11.     L,I        : Integer;
  12.     Path,Null,
  13.     EC         : String;
  14.     Key        : Char;
  15.  
  16. Const Version = 'v1.3';
  17.       Prg     = 'Error Correction Notification System ';
  18.  
  19. Procedure Prompt;
  20. Begin
  21.   Rmsetcolor(14,0);
  22.   Rmgotoxy(1,22);
  23.   Rmsetcolor(14,0);
  24.   Rmgotoxy(1,22);Rmwrite('<ENTER>');
  25.   Key:=Upcase(Rmreadkey);
  26.   Exit;
  27. End;
  28.  
  29. Procedure Start_It;
  30. Begin
  31.   Path:=GetEnv('SFPATH');
  32.   L:=Length(Path);
  33.   For I:=1 To L Do Path[I]:=Upcase(Path[I]);
  34.   If Path[(Length(Path))]<>'\' Then Path:=Path+'\';
  35.   Assign(F,Path+'SFDOORS.DAT');
  36.   {$I-}Reset(F);{$I+}
  37.   If IOResult<>0 Then Exit;
  38.   For I:=1 To 20 Do Readln(F,Null);
  39.   Readln(F,EC);
  40.   L:=Length(EC);
  41.   For I:=1 To L Do EC[I]:=Upcase(EC[I]);
  42.   Close(F);
  43.   If (EC='TRUE') or (ComPort=0) or (BaudRate=0) Then Exit;
  44.   If AnsiColor=True  Then Rmdisplayfile('NOEC.CLR',False);
  45.   If AnsiColor=False Then Rmdisplayfile('NOEC.BBS',False);
  46.   Prompt;
  47.   Exit;
  48. End;
  49.  
  50. Begin
  51.   Rmclrscr;
  52.   DoorName:=Prg+Version;
  53.   RegisterRmdoor('Brian Leiter','145-8192930');
  54.   Start_It;
  55.   Halt;
  56. End.